home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / watanabe / menu / ver_up.bas < prev   
BASIC Source File  |  1994-12-10  |  2KB  |  55 lines
  1. 1000 '********************************************************************
  2. 1010 '*                  バージョンアップデータ変換プログラム            *
  3. 1020 '*                                  1994年10月14日(金) (C)渡辺 良一 *
  4. 1030 '********************************************************************
  5. 1040 '
  6. 1050 '　　メニュー画面 v0.70のデータファイル（MENU.DAT）をそれ以降のものに
  7. 1060 '　対応させます。変更を行うと、 v0.70では正確に読み込めなくなります。
  8. 1080 '
  9. 1090 '　　このプログラムでは念のため、元のファイルを残します。
  10. 1100 '
  11. 1110 '
  12. 1120 '
  13. 1130 DEFINT F,項
  14. 1140 DIM 題$(7),項目数(7),表示$(7,9,9),FILE$(7,9,9),FS&(9,9)
  15. 1150 '★★★メニューファイル読み込み★★★
  16. 1160   OPEN"I",#1,"menu.dat"
  17. 1170   INPUT#1,MS
  18. 1180   FOR I=0 TO MS
  19. 1190     INPUT#1,題$(I),項目数(I)
  20. 1200     P=0:項目数=項目数(I)
  21. 1210     WHILE 項目数>0
  22. 1220       FOR J=0 TO 9
  23. 1230         IF J>=項目数 THEN *NEXT
  24. 1240         INPUT#1,表示$(I,P,J)
  25. 1250         IF I>0 THEN INPUT#1,FILE$(I-1,P,J)  'メインメニューでないなら
  26. 1260         IF I=1 AND (P OR J) THEN INPUT#1,FS&(P,J) 'ＥＵＰメニューなら
  27. 1270       *NEXT:NEXT J
  28. 1280       P=P+1:項目数=項目数-10
  29. 1290     WEND
  30. 1300   NEXT I:CLOSE #1
  31. 1310 '********************************************************************
  32. 1320   表示$(1,0,0)="演奏を停止する。"
  33. 1330 '********************************************************************
  34. 1340 '★★★セーブ★★★
  35. 1350   OPEN"O",#1,"menu.###"
  36. 1360   WRITE#1,MS
  37. 1370   FOR I=0 TO MS
  38. 1380     PRINT#1,題$(I)
  39. 1390     WRITE#1,項目数(I)
  40. 1400     P=0:項目数=項目数(I)
  41. 1410     WHILE 項目数>0
  42. 1420       FOR J=0 TO 9
  43. 1430         IF (I=0 AND (J<2 OR 7<J OR MS+1<J)) OR (I=1 AND P=0 AND J=0)                    OR J>=項目数 THEN *NEXT2
  44. 1440         PRINT#1,表示$(I,P,J)
  45. 1450         IF I>0 THEN PRINT#1,FILE$(I-1,P,J)   'メインメニューでない
  46. 1460         IF I=1 AND (P OR J) THEN WRITE#1,FS&(P,J) 'EUPメニューなら
  47. 1470       *NEXT2:NEXT J
  48. 1480       P=P+1:項目数=項目数-10
  49. 1490     WEND
  50. 1500   NEXT I
  51. 1510   CLOSE #1
  52. 1520   NAME"menu.dat" AS "menu.bak"
  53. 1530   NAME"menu.###" AS "menu.dat"
  54. 1540   END
  55.